-- card: 2942 from stack: in
-- bmap block id: 3378
-- flags: 0000
-- background id: 2620
-- name: 


-- part 8 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=434 top=276 right=300 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Aggiorna
----- HyperTalk script -----
on mouseUp
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Disegno"
  if the userLevel < 3 then exit mouseUp
  clearScreen
  put empty into background field "totale"
  reset paint
  choose rect tool
  set lineSize to 1
  set pattern to 14
  set filled to true
  put frameleft() into horiz
  put maxLine(field "Dati") into maxValue
  put the number of lines in field "Dati" into dataCount
  put round(framewidth()/dataCount) into horizStep
  put round(horizStep * 3/4) into width
  repeat with i = 1 to dataCount
    get line i of field "dati"
    if it is not empty then
      put round(frameheight() * it / maxValue) into height
      drag from horiz,framebottom()-height to horiz+width,framebottom()
    end if
    add horizStep to horiz
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp




-- part contents for background part 5
----- text -----
20
88
90
56
25
50
67
50
75






-- part contents for background part 11
----- text -----
MegaCorp: Ricavi totali per anno